home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_SingleSelReq.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  745b  |  41 lines
  1. /*
  2. ** This script shows how to use MM_SortStem, MM_SingleSelReq and MM_SearchInStem
  3. */
  4.  
  5. address 'MAILMANAGER'
  6.  
  7. names.0 = 'AreaFix'
  8. names.1 = 'Maurizio Fabiani'
  9. names.2 = 'Gino Lucrezi'
  10. names.3 = 'Massimo Baglione'
  11. names.4 = 'Edwin Halsema'
  12. names.5 = 'Eric Krieger'
  13. names.6 = 'Siggi Weisner'
  14. names.7 = 'Marco Musso'
  15. names.8 = 'Frank Geider'
  16. names.9 = 'Massimo Brogioni'
  17. names.10 = 'Paolo Carotenuto'
  18. names.11 = 'Mario Pacchiarotti'
  19. names.12 = 'Robert Hofmann'
  20.  
  21. names.count = 13
  22.  
  23. MM_SortStem names
  24.  
  25. if RC=0 THEN DO i=0 FOR names.COUNT
  26.     say names.i
  27.     END
  28.  
  29. MM_SingleSelReq names out '"Select One Name"' STR
  30.  
  31. if RC=0 THEN DO i=0 FOR out.COUNT
  32.     say out.i
  33.     END
  34.  
  35.  
  36. MM_SearchInStem names out '#?ma#?' STR
  37.  
  38. if RC=0 THEN DO i=0 FOR out.COUNT
  39.     say out.i
  40.     END
  41.